home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / 1900copy.txt < prev    next >
Encoding:
Text File  |  1996-03-07  |  1.2 KB  |  38 lines
  1. If newtitle = TRUE then
  2. Eval("EraseDisplay(@" ^ title number ^ ")")
  3. Title number = "2000"
  4. Company = "Acclaim"
  5. title = "NBA Live 96"
  6. Price = 59.99
  7. Demo = false
  8. Button1 = false
  9. Button2 = false
  10. Button3 = false
  11. Button4 = false
  12. system = "Genesis"
  13. Title Description = "Delivers real NBA 5-on-5 hoops strategies in an intense, action-packed
  14. atmosphere. Slams, alley-oops, mid-air passes, blocked dunks and 3-pointers. Plus, new On the
  15. Fly calling, new Create a Player feature and 4-player adapter support."
  16.  
  17. -----------------------------------
  18. dline = ""
  19. counter = 0
  20. repeat while dline <> title number
  21. counter = counter + 1
  22. dline = GetWord(1, GetLine(titl,counter))
  23. test(dline = title number, LineInTitle = counter)
  24. end repeat
  25. starttitle = LineInTitle
  26. num of titles shown = 6
  27. endtitle = starttitle + num of titles shown - 1
  28. titles = ""
  29. title highlight = ""
  30. repeat with counter = starttitle to endtitle
  31. nextline = GetLine(titl, counter)
  32. titles = titles ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return
  33. title highlight = Test(title number = GetWord(1, nextline), titlehighlight ^ SubStr(nextline, 6,
  34. CharCount(nextline)) ^ Return, title highlight ^ Return)
  35. end repeat
  36. dpage = CurrentPageID
  37. newtitle = FALSE
  38. end if